home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Light ROM 1
/
LIGHT-ROM 1 (Amiga Library Services)(1994).iso
/
ffdisks
/
d962.lha
/
MuchMore
/
Install_MuchMore
< prev
next >
Wrap
Text File
|
1994-01-31
|
10KB
|
215 lines
; *** MuchMore installation scipt ***
(welcome "Welcome to the MuchMore installation!")
(
;get destination dir for MuchMore-executable
(set mydest
(askdir
(prompt "Select the directory where you want to put the MuchMore executable.")
(help "The directory where you store the executable "
"should be easily accessible via WorkBench or CLI/Shell.\n\n"
@askfile-help
)
(default "C:")
(disk)
)
)
(set @default-dest mydest)
(set mmdest (tackon mydest "MuchMore"))
(
(if (= 1 (exists mmdest))
(
(if (= 0
(askbool
(prompt "You have already installed MuchMore. Do you wish to overwrite it?\n\n")
(help @askbool-help)
(default 1)
(choices "Continue" "Abort")
))
(abort "Okay, I didn't overwrite the executable.")
)
)
)
)
(copyfiles
(prompt ("Copying MuchMore executable to %s." mydest))
(help @copyfiles-help)
(source "MuchMore")
(dest mydest)
(infos)
)
)
(
;Copy Docs
(if
(set qval
(askoptions
(prompt "Please choose which docs you want to have installed! "
"(Or choose none to have no docs installed!)")
(choices
"English Docs"
"German Docs"
)
(default 0)
(help
"Not installing the docs is unwise because you could have "
"questions while using MuchMore. Choosing the "
"documentation in your favourite language is sufficient.\n\n"
@askoptions-help
)
)
)
(
(set docsdest
(askdir
(prompt "Select the directory where you want to put the docs.")
(help
"You may store the docs where you usually store docs or "
"in the directory where MuchMore resides in.\n\n"
@askfile-help
)
(default mydest)
)
)
(if (IN qval 0)
(copyfiles
(prompt ("Copying english docs to %s." docsdest))
(help @copyfiles-help)
(source "MuchMore.doc")
(dest docsdest)
(infos)
)
)
(if (IN qval 1)
(copyfiles
(prompt ("Copying german docs to %s." docsdest))
(help @copyfiles-help)
(source "MuchMore.dok")
(dest docsdest)
(infos)
)
)
)
)
)
(
;install LOCALEs
(set catdir "LOCALE:catalogs")
(if (= 2 (exists "LOCALE:" (noreq)))
(if
(set qval
(askoptions
(prompt "Please choose which catalogs you want to have "
"installed! "
"(Or choose none to have no catalogs installed!)")
(choices
"Dansk"
"Deutsch"
"Français"
"Italiano"
"Nederlands"
"Norsk"
"Svenska"
)
(default 0)
(help
"It is sufficient to install the catalog(s) of the language(s) "
"that you specified as 'preferred' in the locale-preferences "
"editor. \n\n"
@askoptions-help
)
)
)
(
(if (IN qval 0)
(copyfiles
(prompt ("Copying danish catalog to %s." (tackon catdir "dansk")))
(help @copyfiles-help)
(source "Catalogs/dansk/muchmore.catalog")
(dest (tackon catdir "dansk"))
(infos)
)
)
(if (IN qval 1)
(copyfiles
(prompt ("Copying german catalog to %s." (tackon catdir "deutsch")))
(help @copyfiles-help)
(source "Catalogs/deutsch/muchmore.catalog")
(dest (tackon catdir "deutsch"))
(infos)
)
)
(if (IN qval 2)
(copyfiles
(prompt ("Copying france catalog to %s." (tackon catdir "français")))
(help @copyfiles-help)
(source "Catalogs/français/muchmore.catalog")
(dest (tackon catdir "français"))
(infos)
)
)
(if (IN qval 3)
(copyfiles
(prompt ("Copying italian catalog to %s." (tackon catdir "italiano")))
(help @copyfiles-help)
(source "Catalogs/italiano/muchmore.catalog")
(dest (tackon catdir "italiano"))
(infos)
)
)
(if (IN qval 4)
(copyfiles
(prompt ("Copying dutch catalog to %s." (tackon catdir "nederlands")))
(help @copyfiles-help)
(source "Catalogs/nederlands/muchmore.catalog")
(dest (tackon catdir "nederlands"))
(infos)
)
)
(if (IN qval 5)
(copyfiles
(prompt ("Copying norwegian catalog to %s." (tackon catdir "norsk")))
(help @copyfiles-help)
(source "Catalogs/norsk/muchmore.catalog")
(dest (tackon catdir "norsk"))
(infos)
)
)
(if (IN qval 6)
(copyfiles
(prompt ("Copying swedish catalog to %s." (tackon catdir "svenska")))
(help @copyfiles-help)
(source "Catalogs/deutsch/muchmore.catalog")
(dest (tackon catdir "svenska"))
(infos)
)
)
)
)
)
)